home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Present…nuary (Partner) - Disc 1
/
The Apple Reference and Presentations Library (Disc 1)(January 1994).iso
/
Aldus
/
US English
/
PageMaker 5.0
/
PageMaker 5.0 PPC
/
AldusPMacTV
/
alafter.ps
next >
Wrap
Text File
|
1993-01-01
|
1KB
|
28 lines
ALPS begin
/W1`{ALPS begin /_prcs? xdef/_ortnt
xdef dup null ne{_prcs?{findcmykprocesscolor}{findcmykcustomcolor}ifelse}if
/_orclr xdef/_cjc?/SetORColorProc _prcs? _orclr _ortnt n2` false setoverprint
/_gop false def/_spotOR? F def Y2` a3`/$clrOverride T def end}bdef
/t1`{BMT begin userdict begin}bdef
/u1`{end end} bdef
/G1`{fontget/_fDict xdef wcu^ _fDict/FontInfo known {
isWinPS _fDict /FontType get 3 eq and
{_dFontScale}{_fDict /FontMatrix get 3 get} ifelse mul/_uScale xdef _fDict/FontInfo get dup
/UnderlinePosition known not {dup/UnderlinePosition get _uScale mul/_uPosition xdef
}{/_uPosition _dUPosition _uScale mul def}ifelse dup/UnderlineThickness known not{
dup/UnderlineThickness get _uScale mul/_uThickness xdef}{/_uThickness
_dUThickness _uScale mul def}ifelse pop}{_dFontScale mul/_uScale xdef
/_uPosition _dUPosition _uScale mul def/_uThickness _dUThickness _uScale mul
def}ifelse/_uOThickness _BFontUOThick _uScale mul def _fDict/PaintType known{
_fDict/PaintType get 2 eq{_fDict/StrokeWidth known{/_uOThickness _fDict
/StrokeWidth get _uScale mul def}{1 0 _fDict/FontMatrix get dtransform dup mul
exch dup mul add sqrt _OutlineWeight mul _uScale mul/_uOThickness xdef}ifelse}
if}if}bdef
end